home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / elisp.zoo / lisp / text-mod.elc < prev    next >
Encoding:
Text File  |  1989-07-06  |  3.0 KB  |  47 lines
  1.  
  2. (provide (quote text-mode))
  3.  
  4. (defvar text-mode-syntax-table nil "\
  5. Syntax table used while in text mode.")
  6.  
  7. (defvar text-mode-abbrev-table nil "\
  8. Abbrev table used while in text mode.")
  9.  
  10. (define-abbrev-table (quote text-mode-abbrev-table) nil)
  11.  
  12. (if text-mode-syntax-table nil (setq text-mode-syntax-table (make-syntax-table)) (set-syntax-table text-mode-syntax-table) (modify-syntax-entry 34 ".   " text-mode-syntax-table) (modify-syntax-entry 92 ".   " text-mode-syntax-table) (modify-syntax-entry 39 "w   " text-mode-syntax-table))
  13.  
  14. (defvar text-mode-map nil "\
  15. ")
  16.  
  17. (if text-mode-map nil (setq text-mode-map (make-sparse-keymap)) (define-key text-mode-map "    " (quote tab-to-tab-stop)) (define-key text-mode-map "s" (quote center-line)) (define-key text-mode-map "S" (quote center-paragraph)))
  18.  
  19. (defun text-mode nil "\
  20. Major mode for editing text intended for humans to read.  Special commands:\\{text-mode-map}
  21. Turning on text-mode calls the value of the variable text-mode-hook,
  22. if that value is non-nil." (interactive) (byte-code "הêו êז✓!êחë①êטë②ê ë③êי
  23. !êכל!ç" [text-mode-map mode-name major-mode local-abbrev-table text-mode-abbrev-table text-mode-syntax-table nil kill-all-local-variables use-local-map "Text" text-mode set-syntax-table run-hooks text-mode-hook] 5))
  24.  
  25. (defvar indented-text-mode-map nil)
  26.  
  27. (if indented-text-mode-map nil (setq indented-text-mode-map (make-sparse-keymap)) (define-key indented-text-mode-map "    " (quote indent-relative)) (define-key indented-text-mode-map "s" (quote center-line)) (define-key indented-text-mode-map "S" (quote center-paragraph)))
  28.  
  29. (defun indented-text-mode nil "\
  30. Major mode for editing indented text intended for humans to read.\\{indented-text-mode-map}
  31. Turning on indented-text-mode calls the value of the variable text-mode-hook,
  32. if that value is non-nil." (interactive) (byte-code "IJêח êט✓!êיבIJ\"ê♪ë②êכ !êלד!êמë⑤êט╱!êנë⑥◆êסë⑥✓êעפ!ç" [text-mode-map nil local-abbrev-table text-mode-abbrev-table text-mode-syntax-table indent-line-function indented-text-mode-map mode-name major-mode kill-all-local-variables use-local-map define-abbrev-table set-syntax-table make-local-variable indent-relative-maybe "Indented Text" indented-text-mode run-hooks text-mode-hook] 8))
  33.  
  34. (defun center-paragraph nil "\
  35. Center each line in the paragraph at or after point.
  36. See center-line for more info." (interactive) (byte-code "IJêèא ênå
  37. בג!ê`⑧ד êה`✓\"))ç" [end nil forward-paragraph newline 1 backward-paragraph center-region] 6))
  38.  
  39. (defun center-region (from to) "\
  40. Center each line starting in the region.
  41. See center-line for more info." (interactive "r") (byte-code "בê✓    Và⓪    ə✓①
  42. ë⓪)êè✓bê`    Wà%ג êדה!êé⑤)ç" [from to tem nil center-line forward-line 1] 4))
  43.  
  44. (defun center-line nil "\
  45. Center the line point is on, within the width specified by `fill-column'.
  46. This means adjusting the indentation to match
  47. the distance between the end of the text and `fill-column'." (interactive) (byte-code "בêèב⑧ג êד êה êד êië⓪êג ê    וז
  48.     ✓#ח\"\\j))ç" [line-length left-margin fill-column nil beginning-of-line delete-horizontal-space end-of-line / - 2] 11))
  49.